(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18230,        529]
NotebookOptionsPosition[     17143,        486]
NotebookOutlinePosition[     17624,        506]
CellTagsIndexPosition[     17581,        503]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:89c6\:56fe\:53d8\:6362", "Chapter"],

Cell[CellGroupData[{

Cell[BoxData[{
 StyleBox[
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}], "Code"], "\n", 
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"origin", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "Code"], 
  "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"(*", "\:5b9a\:4e49\:4e00\:4e2a\:76f8\:673a\:5750\:6807", "*)"}], 
   "Code"]}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{
   RowBox[{"position", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0.3", ",", "0.2", ",", "0.1"}], "}"}]}], ";"}], 
  "Code"], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"lookat", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"0.5", ",", "0.5", ",", "0.6"}], "}"}]}], ";"}], "Code"], "\n", 
  RowBox[{"(*", 
   RowBox[{
   "up\:662f\:5782\:76f4\:4e8e\:89c6\:7ebf\:7684", "\:ff0c", 
    "\:7528\:53c9\:79ef\:6765\:968f\:673a\:4e58\:4e00\:4e2a\:5411\:91cf\:5f97\
\:5230\:5782\:76f4\:4e8e\:89c6\:7ebf\:7684\:5411\:91cf"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox["up", "Code"], 
  StyleBox[" ", "Code"], 
  StyleBox["=", "Code"], 
  StyleBox[" ", "Code"], 
  RowBox[{"Cross", "[", 
   RowBox[{
    RowBox[{"lookat", "-", "position"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0.2", ",", "0.1"}], "}"}]}], "]"}]}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "0.07`"}], ",", 
   RowBox[{"-", "0.020000000000000004`"}], ",", "0.04000000000000001`"}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["View & Camera Transformation", "Subchapter"],

Cell["\:5f53\:524d\:4f4d\:7f6e\:5173\:7cfb", "Item"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{"(*", "\:5750\:6807\:8f74", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Text", "[", 
     RowBox[{"\"\<x\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", 
    RowBox[{"Text", "[", 
     RowBox[{"\"\<y\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
    RowBox[{"Text", "[", 
     RowBox[{"\"\<z\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Arrowheads", "[", "Small", "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", "\:539f\:59cb\:76f8\:673a", "*)"}], "\[IndentingNewLine]", 
    "Green", ",", 
    RowBox[{"Point", "[", 
     RowBox[{"{", "position", "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"position", ",", "lookat"}], "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"position", ",", 
       RowBox[{"up", "+", "position"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", "\:79fb\:52a8\:540e\:7684\:76f8\:673a", "*)"}], 
    "\[IndentingNewLine]", "Red", ",", 
    RowBox[{"Point", "[", 
     RowBox[{"{", "position", "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 Graphics3DBox[{Text3DBox["\<\"x\"\>", {1, 0, 0}], 
   Text3DBox["\<\"y\"\>", {0, 1, 0}], Text3DBox["\<\"z\"\>", {0, 0, 1}], 
   {Arrowheads[Small], Arrow3DBox[{{0, 0, 0}, {1, 0, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0, 1, 0}}], Arrow3DBox[{{0, 0, 0}, {0, 0, 1}}], 
    {RGBColor[0, 1, 0], Point3DBox[{{0.3, 0.2, 0.1}}], 
     Arrow3DBox[{{0.3, 0.2, 0.1}, {0.5, 0.5, 0.6}}], 
     Arrow3DBox[{{0.3, 0.2, 0.1}, {0.22999999999999998`, 0.18, 0.14}}]}, 
    {RGBColor[1, 0, 0], Point3DBox[{{0.3, 0.2, 0.1}}]}}},
  ImageSize->{415.61290652210874`, 381.92139237356747`},
  ViewPoint->{0.6766395670319958, -3.3027782381944473`, 0.2895078680035439},
  ViewVertical->{0.08302512159518617, -0.5970835507377629, 
   0.7978709561216588}]], "Output"]
}, Open  ]],

Cell["\:89c6\:7a97\:53d8\:6362", "Item"],

Cell["\<\
\:5047\:5b9a\:76f8\:673a\:5728\:539f\:70b9\:671d-z\:65b9\:5411\:770bup\:662f+\
y\:ff0c\:628a\:4e16\:754c\:91cc\:7684\:7269\:4f53\:4e5f\:5e94\:7528\:6b64\
\:53d8\:6362\:4fdd\:6301\:4e0e\:76f8\:673a\:76f8\:5bf9\:4f4d\:7f6e\:4e0d\:53d8\
\:ff0c\:76f8\:673a\:770b\:5230\:7684\:4e16\:754c\:4f9d\:7136\:548c\:53d8\:6362\
\:524d\:4e00\:6837\:ff0c\:4f46\:6709\:52a9\:4e8e\:7b80\:5316\:4ee5\:540e\:7684\
\:8ba1\:7b97\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\:5047\:8bbeposition\:662f", 
     RowBox[{"(", 
      RowBox[{"x", ",", "y", ",", "z"}], ")"}]}], "\:ff0c", 
    RowBox[{"lookat", 
     RowBox[{"(", "g", ")"}], "\:662f", 
     RowBox[{"(", 
      RowBox[{"gx", ",", "gy", ",", "gz"}], ")"}]}], ",", 
    RowBox[{"up", 
     RowBox[{"(", "t", ")"}], "\:662f", 
     RowBox[{"(", 
      RowBox[{"tx", ",", "ty", ",", "tz"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "\:9996\:5148\:6765\:5199\:5e73\:79fb\:77e9\:9635", "\:ff0c", 
    "\:5e73\:79fb\:77e9\:9635\:5c31\:662f"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", GridBox[{
       {"1", "0", "0", 
        RowBox[{"-", "x"}]},
       {"0", "1", "0", 
        RowBox[{"-", "y"}]},
       {"0", "0", "1", 
        RowBox[{"-", "z"}]},
       {"0", "0", "0", "1"}
      }], ")"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"\:7136\:540e\:5199\:65cb\:8f6c\:77e9\:9635", "\:ff0c", 
     RowBox[{
     "\:65cb\:8f6c\:77e9\:9635\:9700\:8981\:8ba9\:76f8\:673a\:7684lookat\:8f6c\
\:5230\:4e0e", "-", "z\:91cd\:5408"}], "\:ff0c", 
     "\:4f46\:662f\:6b63\:7740\:5199\:4e0d\:597d\:5199", "\:ff0c", 
     "\:5c31\:5047\:8bbe\:76f8\:673a\:5df2\:7ecf\:5728\:539f\:70b9", "\:ff0c",
      "\:600e\:4e48\:624d\:80fd\:65cb\:8f6c\:5230position", "\:ff0c", 
     "\:4e0b\:9762\:8fd9\:4e2a\:53d8\:6362\:7684\:9006\:53d8\:6362\:5c31\:662f\
\:6211\:4eec\:8981\:7684"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", GridBox[{
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", "1", 
         "\[RightDoubleBracket]"}], "xt", 
        RowBox[{"x", "-", "g"}], "0"},
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", "2", 
         "\[RightDoubleBracket]"}], "yt", 
        RowBox[{"y", "-", "g"}], "0"},
       {
        RowBox[{
         RowBox[{"(", 
          RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", "3", 
         "\[RightDoubleBracket]"}], "zt", 
        RowBox[{"z", "-", "g"}], "0"},
       {"0", "0", "0", "1"}
      }], ")"}], ";"}]}]}]], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:8fd9\:4e2a\:65cb\:8f6c\:77e9\:9635\:662f\:600e\:4e48\:5199\:51fa\:6765\
\:7684", "\:ff1f", "\:770b\:4e0b\:9762\:7684\:4f8b\:5b50", "\:ff0c", 
    "\:60f3\:8981\:628ax\:8f6c\:5230\:548ca\:91cd\:5408", "\:3001", 
    "\:628ay\:8f6c\:5230\:548cb\:91cd\:5408", "\:3001", 
    "\:628az\:8f6c\:5230\:548cc\:91cd\:5408"}], "*)"}], "\n", 
  RowBox[{"MatrixForm", "[", 
   RowBox[{"Dot", "[", 
    RowBox[{
     RowBox[{"(", GridBox[{
        {"ax", "bx", "cx", "0"},
        {"ay", "by", "cy", "0"},
        {"az", "bz", "cz", "0"},
        {"0", "0", "0", "1"}
       }], ")"}], ",", 
     RowBox[{"(", GridBox[{
        {"x"},
        {"y"},
        {"z"},
        {"1"}
       }], ")"}]}], "]"}], "]"}]}]], "Code"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"ax", " ", "x"}], "+", 
       RowBox[{"bx", " ", "y"}], "+", 
       RowBox[{"cx", " ", "z"}]}]},
     {
      RowBox[{
       RowBox[{"ay", " ", "x"}], "+", 
       RowBox[{"by", " ", "y"}], "+", 
       RowBox[{"cy", " ", "z"}]}]},
     {
      RowBox[{
       RowBox[{"az", " ", "x"}], "+", 
       RowBox[{"bz", " ", "y"}], "+", 
       RowBox[{"cz", " ", "z"}]}]},
     {"1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Correction", "[", 
    RowBox[{"v_", ",", "position_", ",", "g_", ",", "t_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"(", GridBox[{
         {
          RowBox[{
           RowBox[{"(", 
            RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", 
           "1", "\[RightDoubleBracket]"}], 
          RowBox[{"t", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
          RowBox[{"-", 
           RowBox[{
           "g", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "0"},
         {
          RowBox[{
           RowBox[{"(", 
            RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", 
           "2", "\[RightDoubleBracket]"}], 
          RowBox[{"t", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
          RowBox[{"-", 
           RowBox[{
           "g", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "0"},
         {
          RowBox[{
           RowBox[{"(", 
            RowBox[{"g", "\[Cross]", "t"}], ")"}], "\[LeftDoubleBracket]", 
           "3", "\[RightDoubleBracket]"}], 
          RowBox[{"t", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], 
          RowBox[{"-", 
           RowBox[{
           "g", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "0"},
         {"0", "0", "0", "1"}
        }], ")"}], "]"}], ".", 
     RowBox[{"(", GridBox[{
        {"1", "0", "0", 
         RowBox[{"-", 
          RowBox[{
          "position", "\[LeftDoubleBracket]", "1", 
           "\[RightDoubleBracket]"}]}]},
        {"0", "1", "0", 
         RowBox[{"-", 
          RowBox[{
          "position", "\[LeftDoubleBracket]", "2", 
           "\[RightDoubleBracket]"}]}]},
        {"0", "0", "1", 
         RowBox[{"-", 
          RowBox[{
          "position", "\[LeftDoubleBracket]", "3", 
           "\[RightDoubleBracket]"}]}]},
        {"0", "0", "0", "1"}
       }], ")"}], ".", "v"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{"(*", "\:5750\:6807\:8f74", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Text", "[", 
     RowBox[{"\"\<x\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", 
    RowBox[{"Text", "[", 
     RowBox[{"\"\<y\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
    RowBox[{"Text", "[", 
     RowBox[{"\"\<z\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Arrowheads", "[", "Small", "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", "\:539f\:59cb\:76f8\:673a\:4f4d\:7f6e", "*)"}], 
    RowBox[{"(*", 
     RowBox[{
     "lookat\:539f\:672c\:5b9a\:4e49\:662f\:4e00\:4e2a\:70b9\:53c2\:4e0e\:8ba1\
\:7b97\:65f6\:8981\:8f6c\:6362\:6210\:5411\:91cf", 
      RowBox[{"(", 
       RowBox[{"lookat", "-", "position"}], ")"}]}], "*)"}], 
    "\[IndentingNewLine]", "Green", ",", 
    RowBox[{"Point", "[", 
     RowBox[{"{", "position", "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", "\:539f\:59cb\:76f8\:673alookat", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"position", ",", "lookat"}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", "\:539f\:59cb\:76f8\:673aup", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"position", ",", 
       RowBox[{"up", "+", "position"}]}], "}"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
    "(*", "\:539f\:59cb\:76f8\:673aup\:548clookat\:53c9\:79ef", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"position", ",", 
       RowBox[{"position", "+", 
        RowBox[{"Cross", "[", 
         RowBox[{
          RowBox[{"lookat", "-", "position"}], ",", "up"}], "]"}]}]}], "}"}], 
     "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", "\:79fb\:52a8\:540e\:7684\:76f8\:673a\:4f4d\:7f6e", "*)"}], 
    "\[IndentingNewLine]", "Red", ",", 
    RowBox[{"Point", "[", 
     RowBox[{"Delete", "[", 
      RowBox[{
       RowBox[{"Correction", "[", 
        RowBox[{
         RowBox[{"Append", "[", 
          RowBox[{"position", ",", "1"}], "]"}], ",", "position", ",", 
         RowBox[{"lookat", "-", "position"}], ",", "up"}], "]"}], ",", "4"}], 
      "]"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", "\:79fb\:52a8\:540e\:7684\:76f8\:673alookat", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Arrow", "[", 
     RowBox[{"{", 
      RowBox[{"origin", ",", 
       RowBox[{"Delete", "[", 
        RowBox[{
         RowBox[{"Correction", "[", 
          RowBox[{
           RowBox[{"Append", "[", 
            RowBox[{
             RowBox[{"lookat", "-", "position"}], ",", "0"}], "]"}], ",", 
           "position", ",", 
           RowBox[{"lookat", "-", "position"}], ",", "up"}], "]"}], ",", 
         "4"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", "\:79fb\:52a8\:540e\:7684\:76f8\:673aup", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Arrow", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"origin", ",", 
        RowBox[{"Delete", "[", 
         RowBox[{
          RowBox[{"Correction", "[", 
           RowBox[{
            RowBox[{"Append", "[", 
             RowBox[{"up", ",", "0"}], "]"}], ",", "position", ",", 
            RowBox[{"lookat", "-", "position"}], ",", "up"}], "]"}], ",", 
          "4"}], "]"}]}], "}"}], "*", "100"}], "]"}]}], "\[IndentingNewLine]",
    "}"}], "\[IndentingNewLine]", "]"}]}], "Input",
 Background->RGBColor[
  0.9529411764705882, 0.9529411764705882, 0.9529411764705882]],

Cell[BoxData[
 Graphics3DBox[{Text3DBox["\<\"x\"\>", {1, 0, 0}], 
   Text3DBox["\<\"y\"\>", {0, 1, 0}], Text3DBox["\<\"z\"\>", {0, 0, 1}], 
   {Arrowheads[Small], Arrow3DBox[{{0, 0, 0}, {1, 0, 0}}], 
    Arrow3DBox[{{0, 0, 0}, {0, 1, 0}}], Arrow3DBox[{{0, 0, 0}, {0, 0, 1}}], 
    {RGBColor[0, 1, 0], Point3DBox[{{0.3, 0.2, 0.1}}], 
     Arrow3DBox[{{0.3, 0.2, 0.1}, {0.5, 0.5, 0.6}}], 
     Arrow3DBox[{{0.3, 0.2, 0.1}, {0.22999999999999998`, 0.18, 0.14}}], 
     Arrow3DBox[{{0.3, 0.2, 0.1}, {0.322, 0.157, 0.117}}]}, 
    {RGBColor[1, 0, 0], Point3DBox[{0., 0., 0.}], 
     Arrow3DBox[{{0, 0, 0}, {-3.469446951953614*^-18, 0., -0.38}}], 
     Arrow3DBox[{{0, 0, 0}, {2.168404344971009*^-17, 0.6900000000000002, 
       0.}}]}}},
  ImageSize->{315.1236887563646, 234.4},
  ViewPoint->{-3.3428191508526153`, 
   0.42028150687019455`, -0.31452119113982985`},
  ViewVertical->{-0.818799247675664, 1.0898097894238716`, 
   0.1558938272065048}]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1600, 826},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
TaggingRules->{"$testsRun" -> False},
TrackCellChangeTimes->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (2016\:5e7410\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 43, 0, 80, "Chapter"],
Cell[CellGroupData[{
Cell[648, 26, 1413, 43, 242, "Input"],
Cell[2064, 71, 167, 5, 37, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2268, 81, 50, 0, 76, "Subchapter"],
Cell[2321, 83, 52, 0, 37, "Item"],
Cell[CellGroupData[{
Cell[2398, 87, 2019, 53, 413, "Input"],
Cell[4420, 142, 748, 12, 495, "Output"]
}, Open  ]],
Cell[5183, 157, 40, 0, 37, "Item"],
Cell[5226, 159, 430, 7, 38, "Text"],
Cell[5659, 168, 2355, 64, 307, "Input"],
Cell[CellGroupData[{
Cell[8039, 236, 768, 23, 146, "Code"],
Cell[8810, 261, 971, 31, 114, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9818, 297, 6329, 165, 865, "Input"],
Cell[16150, 464, 953, 17, 311, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

